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7 SBEGIN RMSOFIND,000,RMSRMS,<DISPATCH FOR FIND OPERATION> 
¢ | eeeeeseeerereneenevesneqsesneneesnsersconcenennerrnqnerevesenteeseooensenoes 
3* * 
0 § 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
0 3* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
$3 8 :* ALL RIGHTS RESERVED. . 
8808 10 :* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND copies * 
000 11 ;* ONLY IN ACCORDANCE WITH THE TER F SUCH LICENSE AND WITH THE * 
4 \¢ 3* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
15 ;* COPIES THEREOF an NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 14 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
44 1? os TRANSFERRED. * 
P ® 
0000 i 3* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 18 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
44 i : CORPORATION. * 
3 ® 
0000 1 ;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS = 
0000 § 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. e 
0000 3* * 
0000 4 3 * 
8000 5 SERRATE AERA AAA ARATE AAA AA AAA AAA AAAAAAEAAAAAEAE TERE 
0000 6 itt 
0000 28 : Facility: rms32 
0000 9; 
0000 0 : Abstract: 
0000 1 : this routine is the highest level control 
0000 ¢ 3 3 routine to perform the $find function. 
0000 3 
0000 4 
44 3 3 
000 6 ; Environment: 
4 38 3 star processor running starlet exec. 
8000 ip : Author: L F Laverdure, creation date: 3-FEB-1977 
0900 41 : Modified By: 
0900 ¢ : v03-004 KPLO0003 Peter Lieberwirth 26-Jul-1983 
0000 rf ; Identity RJR=FIND if this is AT journaling. 
900 46 F v03-003 KPL0002 Peter Lieberwirth 24-Jul-1983 
388 2 3 If AT journaling, get info from RAB describing user's request. 
4 rt : v03-002 KPLO001 Peter Lieberwirth 27-May-1983 
B) I 3 Insulate the case branch from truncation errors. 
099 § : v03-001 KBT0182 Keith B. Thompson 23-Aug-1982 
° Z 3 Reorganize psects 
p 5: v005 REFORMAT Ken Henderson 30-JUL-1980 7:38 
385 § : the code was reformatted 
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OR FIND OPERATION 16*SEP=1986 01:18:57 VAX/VMS Macro V04-00 : 
g- Be Oh: SB: 22 age 4) 


ON SFIND SETUP AND DISPAT SEP=19 RMS .SRCJRMSOF IND .MAR; 1 
-SBTTL RMSSFIND = COMMON SFIND SETUP AND DISPATCH ROUTINE 


RMSOF IND DI 
voL-000 RM 


“4 
om 
nm 
ad 


FF SAW ANAN AN AAR Bo SS SSS SSS LOLOSLLSVOe 3 


PI OWODNOAUE WIN (OOD NAUL WIN 9 OD NA UNE WIN 2 O OD NAME WI O ODNAUE WN OOOnNO 


0 


;++ 
; RMSSFIND 


; this routine performs common rab function setup followed 
; by dispatch to organization-dependent $find code 


; Calling sequence: 


entered from exec as a result of user's calling sys$find 
(e.g., by using the $find macro) 


oOo OOOCoCoCoCoeo vt 


GOOOCCCCOOOCOCOSOSSOSSOSSCOCSOCOSOSOOOOOOOCOOOOOOOOOOOOOoOO 


; Input Parameters: 

ap user's argument List addr 
; Implicit Inputs: 

the contents of the rab and related irab and ifab. 
; Output Parameters: 


; r0 status code 
; Implicit Outputs: 
various fields of the rab are filled in to reflect 
the status of the $find agoretven. (see rms functional 
spec for a complete List. 
the irab is similarly updated. 
a completion ast is queued if specified in the user arglist. 
; Completion Codes: 
; standard rms (see functional spec for List). 
; Side Effects: 
none 


OOOOCoOoooooooooooooooooooooooooooooooooooosoo 20 
OOOCOCOCoCOOoOooCoooooooooooooooooSo Ooo 


: ri destroyed 


Soooo 


SENTRY RMSSFIND 
STSTPT 
SRABSET FAC=IFBSV_GET ; do common setup 


OOOOCCOCOCOOCOSOSOOSOSOSOOSOSOOOSOSOSOOSOOOSOSOSOSOSOOOOOOOOOOOOOOSOSoOO 


e 
; returns to user on error 


>PrPrrro 


$SB #IRBSV_FIND, (R9) ; flag this as a find 


ee ee a ts = 2 2 9 9 9 — 4) 48 9 3 2 ss =) Ss ) 2 
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SOoOooOoOoOoSoOo 
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RMSOF IND DISPATCH FOR FIND OPERAT SEP=1984 AX/VMS Macro V04-00 Page 
yO 000 RMSSFIND = COMMON $FIND SETUP AND DISPAT 3% SEP=1984 riety if Hf RMS.SRCIRM SOF IND MAR; 1 . 3) 
O0E 137 ; If AT journaling, get some information from RAB. 
09 O0A0 cA 04 E1 — 145° BBC wlFBSv AT 1FBSB_ JNLFLG(R10), 58 : okie if if “net AT jnling 
1 OB dO 0014 146 MOVL $_FINO,R ; input for RAB 
00000000'EF 16 1? 16 = JSB angare “COM. Ra : get URAB data” cons RJR 
1D 128 ; 
wh 134 : dispatch t dependent cod 
; spatc o org-aepencent code 
91D 158 | ‘ foes 
01D «15 
1D 154 CASE TYPE SB. SR RCs FB$B_ORGCASE (R10) ,~ 
Ht! 132 DISPLIST=<10$, 2 0$> : seq, rel, idx routines 
00000008 00 f 133 IF NE apes vegeanenen, Sausten 
FEDS’ 31 00 158 BRW RMSERRORG 
0028 159 .ENDC 
0028 160 
Q00000000'EF 17 0028 161 10$ JMP RMSFIND1 : sequential 
00000000'EF 17 0031 168 208 JMP RMS$F IND2 : relative 
00000000'EF 17 0037 163 30$ JMP RMSF IND3 : ISAM file 
003D 164 
003D 165 END 


1g7seb- 138% 9} 18:57 Y 
Symbol table -SEP-1984 16:24:58 (CRMS.SRCIRMSOF IND.MAR;1 
$$.PSECT_EP = 00000000 
SSRMSTEST = 1A 
SSRMS_PBUGCHK = 10 
SSRMS_TBUGCHK = 8 % 
SSRMS_UMO = 00000004 
IFB$B_JNLFLG = 0 A 
IF BSB_ORGCASE = 
IFBSV_AT = 88 4 
IF BSV_GET = 8 00001 
BSV_F IND = 00000029 
PIOSA_TRACE eeeeeeee = YX 01 
RJRS$_FIND = 00000008 
RMSAT_COM_RAB aeeeeeee = X ot 
RMSERRORG eeeeeeee x 1 
RMSF IND1 RERRRERE x 01 
RMSF IND Rekekeee x 01 
RMSF IND ekkeeeee xX 01 
RMSRSET eeeeeere YX (1 
RMSSF IND = FFFFFFFE RG 01 
TPTSL_F IND teeeeeee =X 01 
tem eww (Pee oe ey ae me ee ot + 
! Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
- (ABS. 00000000 ( 0.) 00 ¢ OQ.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
RMSRMS Q0000003D ( oi.) Oi & Fer PIC USR CON’ REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 
SABSS 00000000 ( 0.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
deme m ees eowee recon mere zeecencn} 
! Performance indicators ! 
tere w nee e wee wee ese ee ce eoe 
Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.07 00:00:00.8? 
Command processing 107 00:00:00.70 88: 898-8 
Pass 219 88: 0: $3 338 :15.0 
Symbol table sort 9 00:00:00.77 :00:01.1 
Pass 2 4 00:00: 38 0:00: 6¢ 
Symbol table output 4 00:00:00.0 0:00:00.07 
Psect synopsis output 8 :00: 8 3: :00. 
Cross-reference output :00:00. :00:00. 
Assembler run totals 406 00:00:07.9 0:00:24.8 


Ihe working ort Limit was 1350 pages. 
27586 bytes (54 pages) of virtual memory were used to buffer the intermediate 


ode. 
There were 30 pages of symbol table space allocated to hold 550 non-local and 5 local symbols. 
1¢5 source Lines were read in Pass 1, producing 15 object records in Pass 2. 
17 pages of virtual memory were used to define 16 macros. 


Near ee en a a a ee 
—-+~D 


RMSOF IND DISPATCH FOR FIND OPERATION i oe at 91:18:32 Ades Hace 


VAX=-11 Macro Run Statistics 


tom meeneonmenme none neees eos an $ 


! Macro Library statistics ! 


+eecen were Bee een eww ewe ese ae Sa 


Macro _library name Macros defined 
~$355$0UA28: :CRMS. 084 RMS.MLB;1 8 
55$0UA28:CSYS.OBJJLIB.MLB;1 1 
$255$DUA28: eye IBISTARLET. MLB; 2 3 
TOTALS (all Libraries) 1 


650 GETS were required to define 12 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RMSOF IND/OBJ=O0BJ$:RMSOF IND MSRC$:RMSOF IND/UPDATE=(ENHS:RMSOF IND) +EXECML$/LIB+LIB$:RMS/LIB 
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